10 GOTO40
20 POKE214,C:POKE211,D:SYS58640:PRINT""A$(B)"[146]":RETURN
30 POKE214,C:POKE211,D:SYS58640:PRINTA$(B):RETURN
40 DIM A$(20)
50 DATAA A A A A,B B B B B,C C C C C,D D D D D,E E E E E,F F F F F
60 DATAG G G G G,H H H H H,I I I I I,J J J J J,K K K K K,PRG.-ENDE
70 FORA=1TO12:READA$(A):NEXT
80 B$=" M E N U E [146][157][157][157][157][157][157][157][157][157][157][157][145][175][175][175][175][175][175][175][175][175][175][175]":B=1:C=8:D=6
90 PRINT"[147]"TAB(14)B$""
100 FORA=1TO6:PRINTTAB(6)A$(A)TAB(24)A$(A+6):PRINT:NEXT
110 PRINT""TAB(4)" WAHL MIT JOYSTICK # 2 + FEUER [146]"
120 PRINTTAB(8)" ODER CURSOR + RETURN [146]"
130 GOSUB20
140 GETC$
150 J=PEEK(56320)
160 IF(JAND16)=0THENC$=CHR$(13):REM RETURN
170 IF(JAND2)=0THENC$="":REM RUNTER
180 IF(JAND1)=0THENC$="[145]":REM HOCH
190 IF(JAND8)=0THENC$="":REM RECHTS
200 IF(JAND4)=0THENC$="[157]":REM LINKS
210 IFC$=CHR$(13)THEN290
220 IFC$=""ANDC<18THENGOSUB30:C=C+2:B=B+1:GOSUB20:GOTO140
230 IFC$=""ANDC=18THENGOSUB30:C=C-10:B=B-5:GOSUB20:GOTO140
240 IFC$="[145]"ANDC>8THENGOSUB30:C=C-2:B=B-1:GOSUB20:GOTO140
250 IFC$="[145]"ANDC=8THENGOSUB30:C=C+10:B=B+5:GOSUB20:GOTO140
260 IFC$=""ANDD=6THENGOSUB30:D=24:B=B+6:GOSUB20:GOTO140
270 IFC$="[157]"ANDD=24THENGOSUB30:D=6:B=B-6:GOSUB20:GOTO140
280 GOTO140
290 IFB=12THEN430
300 IFB<10THENONBGOSUB320,330,340,350,360,370,380,390,400:GOTO90
310 IFB>9THENON(B-9)GOSUB410,420:GOTO90
320 PRINT"[147]DIES IST PROGRAMM AAAAA":POKE198,0:WAIT198,1:POKE198,0:RETURN
330 PRINT"[147]DIES IST PROGRAMM BBBBB":POKE198,0:WAIT198,1:POKE198,0:RETURN
340 PRINT"[147]DIES IST PROGRAMM CCCCC":POKE198,0:WAIT198,1:POKE198,0:RETURN
350 PRINT"[147]DIES IST PROGRAMM DDDDD":POKE198,0:WAIT198,1:POKE198,0:RETURN
360 PRINT"[147]DIES IST PROGRAMM EEEEE":POKE198,0:WAIT198,1:POKE198,0:RETURN
370 PRINT"[147]DIES IST PROGRAMM FFFFF":POKE198,0:WAIT198,1:POKE198,0:RETURN
380 PRINT"[147]DIES IST PROGRAMM GGGGG":POKE198,0:WAIT198,1:POKE198,0:RETURN
390 PRINT"[147]DIES IST PROGRAMM HHHHH":POKE198,0:WAIT198,1:POKE198,0:RETURN
400 PRINT"[147]DIES IST PROGRAMM IIIII":POKE198,0:WAIT198,1:POKE198,0:RETURN
410 PRINT"[147]DIES IST PROGRAMM JJJJJ":POKE198,0:WAIT198,1:POKE198,0:RETURN
420 PRINT"[147]DIES IST PROGRAMM KKKKK":POKE198,0:WAIT198,1:POKE198,0:RETURN
430 PRINT"[147]DIES IST PRG.-ENDE !":POKE198,0:WAIT198,1:POKE198,0:END